home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
051-075
/
disk_071
/
amibas
/
clogo
(
.txt
)
< prev
next >
Wrap
AmigaBASIC Source Code
|
1992-05-06
|
2KB
|
65 lines
' Commodore-Logo C= 4 Jul 86
' by Peter Kittel , last change 5 Dec 86
WINDOW 2,"COMMODORE-Logo",(0,0)-(631,186),20
CLS
WHILE INKEY$<>"q" ' infinite loop until q key pressed
f=0.5+0.5*RND(1) ' random size between 0.5 and 1
PAINT (1,1),1 ' clear screen
LOCATE 2,9
PRINT " Size of logo is random, quit by pressing q. "
uy=f*200/512:ux=f*0.9 ' some scaling factors
ir=107:ar=200:rr=61:fl=170:fk=97:fm=5 ' Logo coordinates
xm=256/f:ym=256/f ' centre
r1=ir*ir:r2=ar*ar
PALETTE 3,1,0,0 ' red replaces orange
PALETTE 0,0,5/15,10/15 ' other colors normal
PALETTE 1,1,1,1
PALETTE 2,0,0,0
COLOR 0
x =xm+rr ' draw the C
x2=x-xm:x2=x2*x2
y1=SQR(r1-x2):y2=SQR(r2-x2)+3
LINE (ux*x,uy*(ym+y1))-(ux*x,uy*(ym+y2))
LINE (ux*x,uy*(ym-y1))-(ux*x,uy*(ym-y2))
ph=rr/ir:ph=3.14159/2-ATN(ph/SQR(1-ph*ph)):CIRCLE (ux*xm,uy*ym),ux*ir,0,ph,2*3.14159-ph
ph=rr/ar:ph=3.14159/2-ATN(ph/SQR(1-ph*ph)):CIRCLE (ux*xm,uy*ym),ux*ar,0,ph,2*3.14159-ph
PAINT(ux*(xm-ir)-3,uy*ym),0 ' paint the C
y2=SQR(r1-rr*rr)-fm
COLOR 3 ' lower banner red
AREA (ux*(xm+rr),uy*(ym+fm))
AREA (ux*(xm+rr+fk),uy*(ym+fm))
AREA (ux*(xm+rr+fl),uy*(ym+y2))
AREA (ux*(xm+rr),uy*(ym+y2))
AREA (ux*(xm+rr),uy*(ym+fm))
AREAFILL
COLOR 0 ' upper banner blue
AREA (ux*(xm+rr),uy*(ym-fm))
AREA (ux*(xm+rr+fk),uy*(ym-fm))
AREA (ux*(xm+rr+fl),uy*(ym-y2))
AREA (ux*(xm+rr),uy*(ym-y2))
AREA (ux*(xm+rr),uy*(ym-fm))
AREAFILL
FOR i=1 TO 9000:NEXT ' delay
COLOR 1
AREA(1,1):AREA(625,1):AREA(625,180):AREA(1,180):AREAFILL ' clear screen
WEND
WINDOW CLOSE 2:COLOR 1 ' end
PALETTE 3,1,0.5,0 ' restore orange
END